PROGRAM cloture;

USES
	Clients, Types, Comptes;

Procedure cloture(ID_Compte : INTEGER ; VAR tabcompte : TTabCompte);					// Définition du nom de notre procédure ainsi que ses paramètres en entrée-sortie

Var
	i :	INTEGER;
	
Begin
		i := indiceCompte(ID_Compte,tabcompte);											//Fait appel à la fonction indiceCompte afin de connaître l'emplacement dans la collectionCompte
		WHILE (i<=tabcompte.nbcompte) DO
			begin
				tabcompte.compteclient[i]:= tabcompte.compteclient[i+1];
				i:=i+1;
			end;
		tabcompte.nbcompte := tabcompte.nbcompte - 1;								//Le compte a supprime est ecrase par le suivant et on fait directement																				//un tri pour que le tableau corresponde au nbcompte
		WRITELN('Le compte a ete supprime');
END;

Var
	client : TTabClient;
	compte : TTabCompte;
BEGIN
	client.tabclient[1].ID:= 123;
	client.tabclient[1].nom:= 'Petit';
	client.tabclient[1].prenom:= 'Benoit';
	client.tabclient[1].naissance:= '15.05.1991'; 
	client.tabclient[1].politesse:= 'Monsieur';
	client.tabclient[1].adresse:= 'Chemin du Sécheron 5';
	client.tabclient[1].npa:= '1132';
	client.tabclient[1].localite:= 'Lully';
	client.tabclient[1].telephone:= '0796208831';

	client.tabclient[2].ID:= 789;
	client.tabclient[2].nom:= 'Plug';
	client.tabclient[2].prenom:= 'Johann';
	client.tabclient[2].naissance:= '12.05.1992';
	client.tabclient[2].politesse:= 'Monsieur';
	client.tabclient[2].adresse:= 'Rte de l''église 2';
	client.tabclient[2].npa:= '1064';
	client.tabclient[2].localite:= 'Etoy';
	client.tabclient[2].telephone:= '0794997979';
	
	client.nbelement:=2;
	
	compte.compteclient[1].IDcompte := 456;
	compte.compteclient[1].IDclient := 123;
	compte.compteclient[1].Libelle := 'Epargne';
	compte.compteclient[1].taux := '2.5%';
	compte.compteclient[1].solde := 1000;
	compte.compteclient[1].limite := 1;

	compte.compteclient[2].IDcompte := 123;
	compte.compteclient[2].IDclient := 789;
	compte.compteclient[2].Libelle := 'courant';
	compte.compteclient[2].taux :=  '0.25';
	compte.compteclient[2].solde := 500;
	compte.compteclient[2].limite := -10;

	compte.nbcompte := 2;
	
	afficheAllclient(client,compte);
	
	cloture(456,compte);
	
	afficheAllclient(client,compte);	
END.
